home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Dm101.dxr / 00008_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  644 b   |  21 lines
  1. global gMasterData
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "---- Decision Making 101 ----------" & RETURN & RETURN after vTempText
  18.   put the text of field "print1" & RETURN & RETURN & RETURN after vTempText
  19.   set the text of member vThisField to vTempText
  20. end
  21.